home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 3.1.l < prev    next >
Text File  |  2007-02-28  |  256b  |  13 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 HIDETURTLE 
  3. 0030 DIM IMAGE$ OF 64
  4. 0040 FOR I:=1 TO 63 DO
  5. 0050 IMAGE$:=IMAGE$+CHR$(255)
  6. 0060 ENDFOR I
  7. 0070 IMAGE$:=IMAGE$+CHR$(0)
  8. 0080 DEFINE 0,IMAGE$
  9. 0100 IDENTIFY 0,0
  10. 0120 SPRITECOLOR 0,2
  11. 0140 SPRITESIZE 0,1,1
  12. 0180 SPRITEPOS 0,0,99
  13.